home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / FCHEK284.ZIP / test / dectab.f < prev    next >
Encoding:
Text File  |  1994-11-06  |  109 b   |  13 lines
  1.     subroutine abc
  2.     common a,b
  3.     1 ,c
  4.     a = 1
  5.     b = a
  6.     2 / c
  7.     if(a .ge.b)a=1
  8.     
  9.    3 +2
  10.     c = 2/3
  11.     print*,a,b,c
  12.     end
  13.